home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / uninstall-vbcc < prev   
Encoding:
Text File  |  2002-01-01  |  3.1 KB  |  124 lines
  1. (complete 0)
  2.  
  3. (onerror
  4.  
  5.     (if (> @ioerr 0)
  6.  
  7.         (
  8.             (message "An error has occurred !")
  9.         )
  10.     )
  11. )
  12.  
  13. ; initialize strings
  14.  
  15. (set @app-name "vbcc (uninstall)")
  16.  
  17. (if (= @installer-version 0)
  18.  
  19.     (set #esc "")
  20.     (set #esc "p")
  21. )
  22.  
  23. (if (= @language "deutsch")
  24.  
  25.     (
  26.         (set #vbcc_found           "Gefundene Installation: ")
  27.  
  28.         (set #vbcc_uninstall       "vbcc entfernen ?")
  29.  
  30.         (set #vbcc_uninstall_yes   "ENTFERNEN")
  31.  
  32.         (set #vbcc_uninstall_no    "Beibehalten")
  33.  
  34.         (set #vbcc_uninstalling    "vbcc wird entfernt ...")
  35.  
  36.         (set #vbcc_uninstallerr    "Deinstallation abgeschlossen. Es konnten nicht alle Komponenten entfernt werden. Beenden Sie alle Programme, starten Sie den Rechner neu und löschen Sie die verbleibenden Dateien.")
  37.     )
  38.  
  39.     ; ELSE
  40.  
  41.     (
  42.         (set #vbcc_found           "Installation detected: ")
  43.  
  44.         (set #vbcc_uninstall       "Uninstall vbcc ?")
  45.  
  46.         (set #vbcc_uninstall_yes   "UNINSTALL")
  47.  
  48.         (set #vbcc_uninstall_no    "Keep")
  49.  
  50.         (set #vbcc_uninstalling    "Uninstalling vbcc ...")
  51.  
  52.         (set #vbcc_uninstallerr    "Uninstallation completed. Some files could not be removed. Terminate all programs, reboot your computer and delete the remaining files manually.")
  53.     )
  54. )
  55.  
  56. (if (exists "vbcc:" (noreq))
  57.  
  58.     (
  59.         ; query answer
  60.  
  61.         (set #uninstall
  62.  
  63.             (askbool
  64.  
  65.                 (prompt (cat #vbcc_found (expandpath "vbcc:") "\n\n" #vbcc_uninstall))
  66.  
  67.                 (choices
  68.  
  69.                     #vbcc_uninstall_yes
  70.  
  71.                     #vbcc_uninstall_no
  72.                 )
  73.  
  74.                 (help @askbool-help)
  75.  
  76.                 (default 1)
  77.             )
  78.         )
  79.  
  80.         (if (= #uninstall 1)
  81.  
  82.             (
  83.                 ; remove assigns
  84.  
  85.                 (set #vbcc_path (expandpath "vbcc:"))
  86.  
  87.                 (run "assign >nil: c: vbcc:bin remove"  )
  88.                 (run "assign >nil: c: vbcc:bin remove"  )
  89.                 (run "assign >nil: vlibmos: remove"     )
  90.                 (run "assign >nil: vincludemos: remove" )
  91.                 (run "assign >nil: vbccmos: remove"     )
  92.                 (run "assign >nil: vlibwos: remove"     )
  93.                 (run "assign >nil: vincludewos: remove" )
  94.                 (run "assign >nil: vbccwos: remove"     )
  95.                 (run "assign >nil: vlibppc: remove"     )
  96.                 (run "assign >nil: vincludeppc: remove" )
  97.                 (run "assign >nil: vbccppc: remove"     )
  98.                 (run "assign >nil: ixinclude: remove"   )
  99.                 (run "assign >nil: vlibm68k: remove"    )
  100.                 (run "assign >nil: vincludem68k: remove")
  101.                 (run "assign >nil: vbccm68k: remove"    )
  102.                 (run "assign >nil: vbcc: remove"        )
  103.  
  104.                 (run ("delete \"%s\" all quiet" #vbcc_path))
  105.  
  106.                 (delete (tackon #vbcc_path "vbcc.info"))
  107.  
  108.                 ; clean up s:user-startup
  109.  
  110.                 (run "programs/stripstartup >NIL: LINES=30 SECTIONNAME=vbcc")
  111.  
  112.                 (if (exists #vbcc_path)
  113.  
  114.                     (message #vbcc_uninstallerr)
  115.                 )
  116.             )
  117.         )
  118.     )
  119. )
  120.  
  121. (exit (quiet))
  122.  
  123. (welcome)
  124.